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The Z-1 Monitor makes it possible to control computers which use 
the CROMEMCO zeuM from a terminal keyboard. 


It includes executive commands to examine and change memory, 

make a binary or an ASCII dump of memory, move and compare blocks 
of memory, output a byte of data to any port, read and write 
binary paper tapes, and program 2708 and 2704 proms using the 
CROMEMCO BYTESAVER. 


Transfer of control to a program in memory can be commanded from 
the keyboard with up to five breakpoints set and with the initial 
contents of the ZPU registers specified. When a breakpoint is 
encountered during execution, control is transferred back to the 
monitor and the contents of all 22 ZPU registers are stored and 
displayed. These register values can be examined and changed 
before execution of the program is resumed. 


The Z-1 Monitor was designed to be flexible as well as powerful. 
For example, the monitor does not require the user to address 

a RAM board at a special place in memory for its own use. Rather, 
it finds the highest page of RAM active in the machine and places 
its stack and temporary storage area there. (The top 4AH or 74 
bytes of this page should be reserved for system use.) 


The monitor is also flexible in its command format. It will 
accept command words of any length, but it only looks at the first 
and last characters typed in. This allows the use of either 
longer expressions for their mnemonic value or shorter expressions 
for their brevity. For example, any of the following 


es 


DR 
DISPLAYR 
DSPR 


causes the contents of all 22 user-registers to be displayed on 
the terminal. 


Many of the commands apply to a range of memory. For example: 
MOV 2408 240A BOOO 
will move the contents of locations 2408 through 240A to B000 
through B003. Another way to accomplish the same thing is by 
means of the swath-operator. Thus: 
MOV 2408 S3 BO00 
will move to BO00 a swath of 3 bytes starting at 2408. 
The format is free-form with respect to spaces. 
MOV 2408 5 3  BO000 
MOV 240853 BO00 
MV 240853 B000 
All have the same effect. Note that at least one space follows 


the command word and at least one space separates a pair of 
numeric operands such as '3' and ‘'BOOO'. 


USE OF THE MONITOR 


Set the power-on jump switch on the ZPU card to E (1110 binary). 
Whenever the computer is reset control will then immediately 
pass to the monitor. 


If the ZPU is installed in the CROMEMCO on Bea computer, depress 
CARRIAGE RETURN from 2 to 3 times. This will set the UART on 
the serial interface card to the baud rate of the terminal 


being used. 


When used with a serial interface card with baud rate fixed to 
that of the terminal, simply depress CARRIAGE RETURN twice. 
The monitor will respond ; 


CROMEMCO MON1.0 C.1976 


followed by a prompt ':'. The monitor is then ready to accept 
commands from the keyboard. 


When entering an address as the operand of a command, only the 
last four digits typed in are retained. For example: 


12345 
is read as 

2345. 
Therefore, if a wrong digit is entered, continue typing until 
the last four digits are correct. There is a hazard with this, 


however. An extra 'F' inadvertently typed when '1FFF' is desired 
yields 'FFFF' instead. 


aS 


When a two digit number, such as a data byte is entered, only the 
last two digits typed are retained. 


If the monitor detects an error condition, the command is aborted, 
a '?' is printed followed by the prompt ':' for the next command. 


Any command may be aborted from the keyboard either when the 
monitor is requesting further input, or during print-out, by 
depressing ESCAPE. For teletypes ESCAPE is the same as CONTROL- 
SHIFT-K. For most other terminals it is CONTROL SEMI-COLON. 


Two cautions should be noted. When using the MOV or the PRGM 
commands, be careful not to overwrite the system stack and 
temporary storage area which resides in the upper 4AH or 72 bytes 
of active RAM installed in the machine. 


When the computer is reset, the monitor is also reset. If a 
user program is executing at the time with breakpoints set, then 
these breakpoints will remain in the user program until removed 
by hand. (The normal procedure is for the monitor to restore 
the user program code whenever a breakpoint is executed.) 


The monitor assumes that data transfer occurs on I/O port 1. 
Status flags are transmitted over input port 0. The Data 
Available Flag is on bit 6 of input port 0. The Transmitter 
Buffer Empty flag is on bit 7 of input port 0. 


COMMANDS 


ts 


DSPM (Start) (Stop) (CARRIAGE RETURN) 


Display memory (DM is the short form) starting with location 
Start and ending with Stop. As with all 2-operand commands, 
the swath-operator may be used instead. 

DSPM (Start) S (Swath width} (CR). 


Example: :DSPM 100 S 3 
0100: AB 34 7F 


DSPR (CR) 


Display registers (DR). The 22 registers are displayed with 
the following format: 


00PC OO0SP 
OAOF OBOC ODOE OHOL O1T0T OOIX OOIY 
AAFF BBCC DDEE HHLL 


where the placement of a l-byte register, such as A is indi- 
cated by "0A", of a 2-byte register, such as the program 
counter, PC, by "00PC", and of a primed register, such as 
A' by "AA". The T register, by the way, contains 1 if 
interrupts were enabled when the monitor was entered, and 0 
otherwise. 


GO (CR) 


Resumes execution at the location contained in the user pro- 


gram counter, PC. 
GO (Addr) (CR) 


Begins execution at Addr. 


-6- 
GO/(bpl) (Bp2)... (CR) 


Resumes execution at the location of PC with breakpoints set 
Bpl, Bp2, ... .(Up to 5 breakpoints may be set.) 


GO (Addr) /(Bpl) (Bp2)... (CR) 


Begins execution at Addr with the indicated breakpoints set. 
All breakpoints are cleared upon re-entry of the monitor 
from a breakpoint. 


MOV (Start) (Stop) (Destination) (CR) 


Move (MV) the contents of memory beginning with Start and 
ending with Stop to Destination. After the move, the monitor 
verifies that source and destination are the same. This will 
result in a print-out of discrepancies which are not really 
errors after certain types of overlapping moves. However, 
this print-out can be terminated by depressing ESCAPE. 


The MOV command can be used to fill a block of memory with 
a constant. For example, to enter zeros between locations 
100 and 10D, use the SBSM command to enter 0 at location 
100, and then move 100 through 10C to 101: 


MOV 100 10c 101 


Care should be taken not to overwrite the system stack 
which resides in the upper 4AH or 74 bytes of active RAM. 


OUT (Data Byte) (Port) 


Output (OT) Data Byte to Port. One use of this command is 


=7= 
to select banks on CROMEMCO memory boards. When the monitor 
is first entered on power-up or reset, it selects bank 0 


and turns off all other memory banks. 
Either a software output or a monitor output to port 40 hex 


serves to change the bank selection. To select bank n 
output a byte with bit n high. 


Bank Output byte 


SOU WN FO 
oS 
co 


For example, the following command selects bank 4 
ouT 10 40 
PRGM (Source) (Source-end) (Destination) 


Program (PM) from Source through Source-end into proms 


beginning at Destination. 


If the length of the source is not a multiple of 400H (1024 
decimal) or if the destination does not begin at a 400H 
boundary, the monitor will reject the command. (Multiples 
of 400H end in 000, 400, 800, or C00.) 


READ (Start) (Stop) (CR) 


Read (RD) input from paper tape reader or console and store 


in memory beginning at Start. 


10. 


ll. 


12. 


SUBM (Addr) (SPACE) 


Substitute memory (SM). Displays the contents of Addr and 
outputs a DOT, '.', as a prompt for the substituted value. 
If no change is desired, type another '.'. Otherwise, 

enter the new value. The monitor accepts hex digits until 
it gets a delimiter, such as a SPACE or DOT, retaining the 
last 2 digits entered as the value. After it receives a 
delimiter, the monitor outputs the contents of the next 
sequential memory location with a DOT prompt. To terminate, 
depress ESCAPE. 


SUBR (Register) (SPACE) 
Where Register may be PC, SP, A, F, B, C, D, E, H, L, I, T 
(Interrupts-enabled state), X (IX), Y¥Y (IY), A', B', C', D', 


E', F', H', or L'. 


Substitute register (SR). This works like the Substitute - 


‘memory command with two exceptions. (1) When substituting. 


for the value of a 2-byte register, the monitor retains the 
last 4 digits before the delimiter, and (2) after accepting 
the substitution value for one register, it awaits entry 

of the ID of the next register. 


VRFY (Start) (Stop) (Destination) (CR) 
Verify (VY) that the block of memory between Start and Stop 
contains the same values as the block beginning at Destina- 


tion. The address and contents are printed for each discre- 


pancy found. 
WRIT (Start) (Stop) (CR) 


Write (WT) the contents of memory locations between Start 


-9- 
and Stop on the console or paper tape punch. This is useful 
for punching binary or ASCII paper tapes of the contents of 
memory, and for looking at the ASCII contents of memory on 
the console. 


When punching a paper tape, it is often desirable to punch 
a series of nulls as a leader. This can be done by filling 
about 60 hex bytes preceding the desired memory block with 
zeros (see the MOV command) and writing out the whole thing 
beginning with the nulls. (Depress CARRIAGE RETURN at the 
end of the WRIT command before turning on the paper-tape 
punch in order to avoid punching an extra CARRIAGE RETURN, 
LINE FEED, RUB-OUT at the beginning of the tape. 
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CROMEMCO Z-1 MONITOR SOURCE LISTING 


* 


® Z80 OP-CODES 
JR EQU 18H 


JRC 
JRNC 
JRZ 
JRNZ 
DJNZ 
EXAF 
EXX 
RLD 
RLDI 
CPI 
CPII 
CPIR 
CPIRI 
LDI 
LDII 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU: 


EQU 
EQU 


38H 
30H 
28H 
20H 
10H 
08 
OD9H 
OEDH 
6FH 
GEDH 
OAIH 
OEDH 
OBIH 
OEDH 
@AOH 
OEDH 
@BOH 
GEDH 
OASH 


OBSH 
OCBH 
OEFH 


@DDH 
OFDH 


sMUST BE THE HIGHER OF 


sPRIME-ABLE REG FLAG 
$2-BYTE REG FLAG 


sROOM FOR TEMP: STORAGE 
$RST LOCATION 
tDIFF BETW LOWER & UPPER CA 


* 
PPAGE EQU OEIH 
* A PAIR OF NON-RAM PAGES. 
PSW EQU 6 

SP EQU 6 

PF = EQU 80H 
ReF EQU -40H 
BELL EQU 07 
ESC EQU 1BH 
CR EQU ODH 
LF EQU OAH 
STAT EQU 0 
DAV EQU 40H 
TBE EQU 80H 
DATA’ EQU 1 
TEMPS EQU 16H 
RSTLC EQU 30H 
CASE EQU 20H 


#EX AF,AF/ 


EQOO 
EOGO 
EQ00 
E000 
E000 
E000 
E000 


E000 
E000 
E000 


E000 
E000 
E000 
EQOO 
E000 
E£Q00 
E000 
EQ00 
EQ00 
£000 
E002 
E004 
E004 
E604 
E004 
E004 
E004 
EOO7 
E008 
E009 
EQOA 
E.00B 
EOOC 
EOOD 
EQOE 
EQOE 
EOOE 
EOOE 
EOIO 
EOI) 
£Ol2 
E013 
EOI6 
EOI7 
EOI8 
EOI8 
E019 
EOIA 
EOIB 
EOIC 
EOID 
EGID 
EQIF 
£020 
EQ21 
EQ22 


3E 
D3 


QO} 


EB QO 


00 


E6 FF 


0225 
G230 
0235 
G240 
0245 
0250 
0255 
0260 
0265 
0270 
0275 
0280 
0285 
0290 
0295 
0300 
0305 
0310 
0315 
0320 
0325 
8330 
0.335 
0340 
0345 
0350 
0355 
0360 
0365 
0370 
0385 
6390 
0395 
0400 
0405 
0410 
0415 
V440 
0445 
0455 
0465 
0470 
0475 
0460 
043 | 
0432 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
049 | 
0492 
0493 
0495 


SSR te cat re AY 


ma 
* DISPLACEMENTS FROM IX OF HI BYTE OF REG PAIRS 
DUPC EFQU 0 
DUSP EQU <2 
DUAF EQU <4 
puBC EQU <6 
DUDE EQU -8 
DUHL EQU -I@ | 
DUIT EQU  --12 4USER I & INTERRUPT ENABLE 
DUIX EQU  <I4 
DUIY EQU  <=16 
DUAF2 EQU -=I8 
DUBC2 EQU 20 
DUDE2 EQU 22 
DUHL2 EQU 24 
x 
*., START 
* ENTER MONITOR FROM RESET 
* 
* 
* ORG OEOO0H 
¥* 
MVI Ag d | 
OUT 40H  $SELECT BANK 0 
* 
* PLACE SYS STACK AT HIGHEST PAGE OF 
* AVAILABLE RAM. 
* ALLOW ROOM FOR TEMP STORAGE. 
* 
LXI  H, QOFFH-TEMPS+2 
INIT DCR 4H 
MOV A,M 
INR M 
CMP =o sDID IT CHANGE? 
DB JRZ | 
DB INIT=$=1 
DCR OM sYES. RESTORE IT. 
Z , 
* HL NOW POINTS TO BP STACK END 


MVI M,0 tBP STACK END MARK 


MOV A,L $SAVE 
DCX H $STORAGE FOR BPSP,LO 
MOV M,A sSTORE BPSP,LO 
LXI D,DUHL2-2 
DAD D $TQ END OF REG STORAGE 
SPHL sSYS SP 
* 
DB OEDH sSBC HL,DEs BACK TQ UPC,HI 
DB 52H $(CY WAS SET BY “DAD D?) 
PUSH H 
DB IX 
POP H sPOP IXsSTORAGE PNTR 
* 
MVI D,PPAGE #FORCE USER SP TO 
DCX H 
DCX H 


MOV M,D sPOINT TO PROM 


E022 
EQ22 
E022 
EQ24 
E027 
E029 
EO2C 
E02D 
EO2E 
EO2E 
E031 
E034 
E034 
EQ35 
£036 
E036 
E036 
E038 
E03B 
EO3E 
E040 
E042 
E043 
£043 
E043 
E043 
E043 
E@43 
E043 
E043 
E044 
E045 
E046 
£046 
EQ47 
EO4A 
EO4B 
EO4C 
E04C 
EQ4D 
EQ4E 
EO4F 
E050 


Ev50 > 


E050 
£050 
E053 
E054 
E055 
E056 
E057 
E053 


36 EO 


36 EO. 


94 E3 
OC E2 


A 
mim 


04 00 


E9 OO 


319s 


* SET BAUD RATE 


* 
INIT! MVI 


CALL. 


MVI 
CNZ 
DB 
DB 


LXI 
CALL 


DB 
DB 
* 


* 

BAUD = OUT 
CALL 
CALL 
-ANT 
CPI 
RET 


Oe et & +e H 


VMS) = XTHL 
DCX 
XTHL 


PUSH 
LXI 
DAD 
XTHL 


PUSH 
PUSH 
PUSH 
PUSH 


A,OD8H $300 BAUD 
BAUD 

A,OF4H $110 BAUD 
BAUD 

JRNZ 

INITi-$s—1 


H,HEAD sHEADING 
PMSG 


JR 
CMND-$-| 


STAT $SET BAUD RATE 
GBYTE 

GBYTE $CAN WE 

TFH sREAD 

CR tA CR? 


ENTER MONITOR FROM BRKPT 


SAVE MACHINE STATE. SAVES ALL REGS um ruin 
SP, FINDS THE TOP OF RAM INSTALLED IN MACHINE 
& SWITCHES THE STACK THERE. 


s ADJUST BRKPT RET ADDR . 


H SSAVE 

H 

SE sUSP (USER=SP) 
sTO STACK 

PSW sUAF 

B sUBC 

D 3UDE 

H sUHL 


* FIND SYS STACK AGAIN 


LXI 
SVMS! DCR 
MOV 
INR 
CMP 
DB 
DB 


H, OOFFH-TEMPS 

H sDECRM MEM PAGE 
A,M , 
M 

M sDID IT CHANGE? 
JRZ 

SVMS 1~$~1 


E059 
EQ5A 
EOSA 
E05B 
EOSE 
E@5F 
E062 
E063 
E064 
E065 
E065 
E066 
E066 
E067 
E068 
E068 
E069 
EQ6A 
E06cC 
EO6F 
E070 
EU70 
EO7| 
EQ72 
EQ72 
E073 
EO74 
EQ75 
EQ76 
E079 
EQTA 
E07B 
EO7C 
EO7D 
EQ7D 
EV7E 
EO7F 
EQ80 
E081 
E082 
2083 
£083 
E083 
E084 
E085 
E086 
E087 
E088 
E088 
E0838 


OB 00 
oc 00 


00 
70 EO 


OB 00 


0735 
0740 
0745 
0750 
0755 
0760 
0765 
0770 
0775 
0730 
0785 
0790 
0795 
0300 
us05 
0810 
0815 
0820 
0825 
0830 
0835 
0849 
0845 
0850 
0355 
0860 
0865 
0870 
0875 
0880 
0885 
0890 
0895 
0900 
0905 
0910 
o915 
0920 
0925 
0930 
0935 
0940 
0945 
0950 
0955 
0960 
0965 
0970 
O975 
09380 


* 


* 


* 


-13= 


DCR M $YES. RESTORE IT. 

XCHG 

LXI H, 11 

DAD SP sPNTS TQ BPRA, HI BYTE 
LXI B, 12 

DB LDDR sTRANSFER TO SYS STACK 


DB LDDR | 

INX D 3DE HAS CURRENT VALUE QF 
SYS SP AND POINTS TO UR 

INX H tHi. HAS CURRENT VALUE OF 
USER SP AND ALSO POINTS TO UR . 


XCHG 

SPHL sSYS SP 
DB OEDH sLD A,I 
DB 57H 

MVI C,G 


JPO SVMS3 s,IFF? 
INR Cc 
C NOW HOLDS USER-IFF 


SVMS3 MOV B,A 


* 


PUSH 8B sUIF (USER-I & USER-IFF) 
DB IX 

PUSH H #PUSH IX3 UIX 

DB IY 

PUSH H sPUSH IY% UIY 

LXI B, DUPC~DUHL+ | 

DAD 8B $PNTS TO UPC, HI. BYTE 
PUSH 4H . 
DB IX 

POP H sTO IX (POINTS TO UPC) 
DB EXAF 

PUSH PSW 

DB EXX 

PUSH B sUBC2 

PUSH D sUDE2 

PUSH H sUHL2 

DB IX 

PUSH H sPUSH IX 

POP H 

INX H sPOINTS TO BPSP,LO 


MOV L,M 3BPSP NOW IN HL 
CLEAR ALL BRKPTS 








E088 
E089 
EO8A 
EO8B 
EO8C 
EO3C 
EQ8D 
EQ8E 
EO8F 
E090 
EO9I 
E092 
E093 
E094 
E095 
EU96 
E096 
E097 
E098 
E099 
EQ99 
EQ9C 
EO9C 
EO9C 
EO9C 
EQ9C 
EOOF 
EOA2 
EOA5 
EQAS 
EQA8 
EQOA 
EQAA 
EOAB 
EOAC 


EQAD - 


bOAC 
EOAF 
EQB2 
EOB3 
EOB4 
EQB5 
EOB5 
EOBS 
EOB5 
EwB5 
EOB5 
EOB5 
EOB/ 
EOBS 


EQB9 | 


EQBB 


F5 


oc 
B3 
Oc 


1A 


OF 


6} 


EO 


E | 
E3 
E2 


EO 


0985 
0990 
0995 
1090 
1005 
1010 
4015 
1020 
1025 
1030 
1035 
1040 
1045 
10506 
1055 
1060 
1065 
1070 
1075 
1030 
1120 
3125 
1130 
1135 
1140 
1145 
1147 
1150 
4155 
1160 
1165 
1170 
3175 
1180 
1185 
4190 
1195 
1200 
1205 
1207 
1210 
1215 
1416 
1417 
1418 
1419 
1426 
142] 
1422 
1423 
1424 
1425 


-]4- 


CLBPI MOV 


ORA 
DB 
DB - 


DCX 
MOV 
DCX 
MOV 
DCX 
MOV 
STAX 
DCX 
DB 
DB 


* 
CLBP2 MOV 


* 


* 


DCX 
MOV 


CALL 


AM $BP STK EMPTY? 
A 


JRZ 
CLEP 2-$-1 


H 
DM 
H 
EM 
H 


ALM 
D’ sRESTORE CONTENTS TO MEM 
H A 


JR 
CLBP t~s—1 


A,L 

H 

M,A tADJUST @P.SP 

DSPR tDISPLAY USER REGISTERS 


* GET 1=BYTE COMMAND. 
x RETURNS VALUE IN HL & JUMPS TO THAT ADOR. 


* 
CMND CALL 
CMNDI LXI 


* HL NOW PNTS 


* 
* 
* 
* 


CALL 


REJECTS ALL 


* RETURNS THE 


* 


ABCYZ SUI 
DB 


DB 
CPI 
RC 


CRLF 

H,PRMPT 

PMSG 

TO TBL ADDR ee 
GCMND $DE GETS LETTER - ’A’ 


H sTIMES 2 

D 3 + TBL ADDR 
E,M 

H 

DM 


D,CMNDI &SET UP RETURN 
D sTQ CMND 
A,C $A & C HAVE CMND DELIMITER 


BUT ALPHABETIC CHARACTERS. 
CHAR LESS THE ASCII VALUE OF 7A’. 


“A“*CASE $7A% OR ABOVE? 
JRC 
ERRORS=1 


25D 3“Y¥"% OR BELOW? 
$IF NOT, CONTINUE BELOA 


EOEA 
E0EB 
EOEC 
EOED 


EQEE - 


cOEF 
EOFG 


CD 09 E2 


E7 


B5 
70 


Q3 


3E 
03 


00 


FF 


El 


El 


04 
E2 


1426 
1427 
1430 
1435 
1446 
1.445 
1450 
1455 
1460 
1465 
1470 
1475 
1480 
1435 
1490 
1495 
1530 
1535 
1540 
1550 
1570 
1575 
15380 
1590 
1595 
1600 
1605 
1610 
1615 
1620 
1623 
1625 
1635 
1640 
1645 
1650 
1655 
1660 
1665 
1670 
1675 
1685 
1687 
1690 
1691 

1730 
1737 
1740 
1745 
1750 
1755 


ay oe 


* 
* 


* ERROR & ESCAPE. RETURNS TO CMND WITH SP 
* POINTING TO SAVED-REG AREA (UHL2). 


* 


ERROR CALL PSQS sPRINI “ ? <BELL>” 
ESCPE DB IX 
PUSH H $PUSH IX 
POP H 
LXI D, DUHL2=-1=DUPC 
DAD 
SPHL 
DB JR 
DB CMND~$=-! sGET NEW CMND 
* 
* 
* PROGRAM PROMS. ABORTS IF DESTINATION 
* TS NOT ON A IK (400H) BOUNDARY, SWATH 
* WIDTH IS NOT A MULTIPLE OF IK. 
* 
* 
PROG MVI B,18! +360 ITERATIONS 
PROG! PUSH B sSAVE # OF ITERATIONS 
CALL LD2N sSOURCE TO DE,INCRM TO BC, 
PUSH PSA sSAVE LATEST DELIMITER 
MOV A.B ¥IS INCRM A MULT OF 1024?) 
ANI 3 
ORA. C 
DB JRNZ 
DB ERROR~$—) 
POP PSW sLAST DELIMITER 
CALL LINCR #SOURCE TO HL, DEST TO DE: 
MOV A.D 41S DEST A MULT OF 10247 | 
ANI 3 . 
ORA E 
DB JRNZ 
DB ERROR-S+1 
* 
PROG3 POP PSW # ITERATIONS 
PUSH PSW 
PUSH B 3 INCREMENT 
LXI B, 1024 
PUSH B SAVE 
CALL) MVE sMOVE IT 
POP B sRETRIEVE 
XTHL sINCRM TO HL 
ORA A sRESET CY 
DB OEDH *SBC HL,BC 
DB 42H 
XTHL sSOURCE BACK TO HL 
POP B sNEW INCRM 


20 


Fi 
C9 


3E 


oc 


OD 


00 
40 


01 
7F 
1B 


00 
80 


Ol 


Et 


El 
El 
El 
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1760 DB JRNZ 

1765 DB PROG3-$—-1 sLOOP IF INCRM NOT O 
1767 POP PSW sCLEAN UP 

1775 RET sBACK TO CMND 

.1730 * 

1782 * C0 MMAND 

1785 * 

1800 * DISPLAY THE USER REGISTERS. 

1805 * 

1810 DSPR CALL CRLF 

1815 ' DB IX 

1820 PUSH H ‘ sPUSH IX 

1825 POP H sPOINTS TO UPC 

1830 MVI B,2 sUPC & USP 

1835 CALL PREGS 

1840 MVI B,7 sUAF THRU UILY 

1345 CALL PREGS 

1850 MVI B,4 #UAF2 THRU JHL2 
13855 PREGS CALL P2BMS PRINT 2 BYTES PNTED TO B 
1860 DB DJINZ 

1365 DB PREGS-$~] 

1870 * (CONTINUE BELOW) 

1d75 * 

1880 * 

1885 * PRINT CR & LF. PRESERVES ALL REGS BUT A. 
1890 * 

1895 CRLF MVI A,CR 

1900 * (CONTINUE BELOW) 

1905 * 

1910 * 
1915 * PRINT THE CHARACTER IN THE A-REGISTER. (CHECKS | 
ieee * INPUT FOR ESCAPE.) PRESERVES ALL REGS. 
1925 x 

1930 PCHR PUSH PSW SAVE THE CHAR 

1935 IN STAT 

1940 ANI DAV 

1945 DB JRZ 

1950 DB PCHR2-s=—1 

1955 IN DATA 

1960 ANI TFH 

1965 * 

1970 PCHRI CPI ESC 

1975 DB JRZ 

1980 DB ESCPE~$-] 

i985 * 

1990 PCHR2 IN STAT 

1995 ANI TBE 

2000 DB JIRZ 

2005 DB PCHR2~s—1 

2010 POP PSW 

2015 OUT DATA 


cD 


cD 
2B 


3E 
B8 


41 
Al 


20 


00 
40 


01 


E5 
E5 


20 


OF 


El 


El 
EI 
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PUSH PSA 
PUSH H 

LXI H,LFNN 
CPI CR 

CZ PMSG 
POP H 

POP PSW 
RET 


* 

* 

* GET CHARACTER. RETURNS IT IN A. CONVERTS 
* ALPHA CHARS TO LOWER-CASE. ALTERS F. 

* 


GCHR CALL GBYTE 


ANT 7FH 
CPI “A? 
DB JRC 
DB GCHR I-$=1 
ORI 20H sCONVERT TO LOWER-CASSE 
GCHR] a PSW $SAVE THE CHAR 
B R 
DB PCHRI-S-1 $#PRINT IT 
* 
rs 
GBYTE IN STAT 
ANI DAV 
DBS JRZ 
DB GBYTE=-$—] 
IN DATA 
RET 
* 
* PRINT 2 BYTES IN (HL) & CHL — 1). 
* DECREMENTS HL BY 2. ALTERS A. PRESERVES OTHERS 
* 
P2BMS CALL PNM 
DCX H 
CALL PNM 
DCX H 
x 
* 
: PRINTS SPACE. PRESERVES ALL REGS BUT A. 


SPACE MVI A,20H 
DB JR 
DB PCHR=$=} 
* 


* 

* IF HL IS A MULTIPLE OF 16, DO PADDR. 
* 

CKI6B MVI A,15 


E158 
E1538 
EI5é 
E158 
E159 
EI5Aa 
EI5A 
EISA 
EI5A 
EISA 
EI5A 
EI5D 
£160 
E162 
Et63 
EI64 
El64 
E164 
E164 
E164 
El6?7 
EI6? 
E16? 
E67? 
E167 
EIGA 
E16C 
E16F 
E170 
E170 
E170 
E170 
E170 
E170 
E170 
E170 
E170 
E173 
E74 
E177 
E179 
EITA 
E17B 
E17B 
Et7c 
EI7F 
E180 
E181 
Elst 
E184 
E185 


A5 
CO 


cD 


cD 


C2 
C9 


CD 


CD 
FE 


06 
AF 
cD 
18 
o7 
cD 


ED 


OC 


DA 
3A 


10 


DI 
BC 


97 


DI 
73 


97 


97 


El 


E\ 
EO 


El 
El 


El 


2230 


2235 


2240. 
2245 
2250 
2255 
2260 
2265 
2270 
2275 
2280 
2285 
2290 
2295 
2300 
2305 
2310 
2325 
2.330 
2335 
2340 


2345 


2350 
2355 
2360 
2365 
2370 
2375 
2330 
2385 
2390 
2395 
2400 
2405 
2420 
2440 
2455 
2460 
2465 
2475 
2476 
2477 
2478 
2480 
2435 
2505 
2510 
2511 

2512 
2513 
2515 
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* ENTER WITH A CONTAINING N. IF HL IS A MUL= 
* TIPLE OF N+l, DO PADDR. 


* 


CKBND ANA 


* 
* 


RNZ 


L 


* PRINT THE NUMBER IN HL, FOLLOWED BY A COLON. 
* PRESERVES ALL REGS EXCEPT A. 
* 


PADDR CALL 

PADRI CALL 
MV I 
DB 
DB 

* 

* 

* 

* 

L2NCR CALL 

* 


CRLF 
PNHL 
Ay? 


JR 


PCHR=-S =| 


LOAD THQ NUMBERS. 


LD2N 


FOLLOW WITH A CRLF. 


* SKIP INITIAL SPACES. 
* IF DELIMITER NOT A CR, ERROR 


* 
SKSGC CALL 
P 


meee te 4 HH FH 


D2N 


* 
LD2N 1 


N2-Niti 


CPI 
JNZ 
RET 


CALL 
XCHG 
CALL 
CPI 
DB 
DB 


XRA 
CALL 
DB 
DB 


CALL 
ORA 
DB 


SKSG 
CR 
ERROR 


GNHL 
SKSG 


sLOOK FOR A NON-SPACE 
sCR? 


LOAD TWO NUMBERS. LOADS DE WITH THE BEGINNING 
ADDR, Ni. LOADS BC & HL WITH THE INCREMENT 
COR WITH N2 IF THE OPR IS ’S%). 
RETURNS WITH LAST DELIMITER IN A. 


sNt TO HL, DELIMITER TO A> 
sSAVE NI EN DE 
sGET NEXT NON=SPACE CHAR 


“S7+CASE $SWATH? 


A 
GNHL 
JR 


- JRNZ 
LD2N I-$~1 


sYES 
s INCREMENT TO HL 


LD2N2-s—1 


GNHL 
A 
OGEDH 


$ INCREMENT 
$CLEAR CY 
s$SBC HL.DE 





E186 
E1387 
E188 
E189 
E18A 
E18B 
E18B 
E18B 
E18B 
E18B 
E188 
E186 
E18E 
EI8BE 
E18E 
EI8E 
EI8E 
EI8E 
EI8E 
E-18E 
EI8E 
E191 
E194 
E195 
E196 
E197 
EI97 
E197 
E197 
E197 
E197 
E197 
E197 
EI97 
E197 
E197 
E1938 
E19B 
E19B 
EI9E 
EI9E 
EIAI 
ElA4 
EIA? 
EIAA 
E IAB 
E1AC 
EJ AD 
EIAE 
E IAF 


52 
23 
44 


C9 


cD 


70 Et 


97 
67 


Ov | 


DI 


AF 
BC 
33 
AF 


El 
El 


EI 


EI 
EO 
El 
E | 
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2520 DB 52H iN2—N | 
2525 INX H sINCLUDE END POINT 
2550 LD2N2 MOV B,H 
2555 MOV Cel 7BC GETS THE INCRM 
2565 RET 
2570 x 
2575 * 
2580 * LOAD 3 OPERANDS. HL GETS SOURCE, DE THE 
2585 * 3RD OPERAND, BC THE INCREMENT & A THE 
2590 * LOW BYTE OF THE 32D OPERAND. 
2595 * 
2600 LD3N CALL LD2N 
2605 * (CONTINUE BELOW) 
2610 * 
2615 x 

2620 * TRANSFER DE TO HL. ENTER WITH SPACE OR 
2625 * IST DIGIT OF NUMBER IN A. GET NUMBBR 
2630 * INTO DE WITH LOW BYTE ALSO TO A. 
2635 * FINISHES WITH A CRLF. 
2640 * 
2645 LINCR CALL GNHL tSKIP SPACES, LOAD HL 
2650 CALL SKSGC $sWAIT FOR A CR 
2655 MOV A,L 
2660 XCHG 
2665 RET 
2610 * 
2675 * 
2680 * CLEARS HL. IF ENTERED WITH HEX CHAR IN A, 
2685 * SHIFTS IT INTO HL. O/A, IGNORES LEADING 
2690 * SPACES. FIRST CHAR MUST BE HEX. CONTINUES 
2695 * SHIFT UNTIL A NON-HEX CHAR RECEIVED & THEN | 
2700 * RETURNS WITH THE LATTER IN A. 
2715 * PRESERVES B,C,D,E. 
2120 * 
2730 * 
2735 GNHL PUSH B sSAVE 
2740 GNHL! LXI -H,9 $CLEAR BUFFER 
2745 * STRIP LEADING SPACES & GET CHAR 
2750 CALL SKSG 
2730 * FIRST CHAR MUST BE HEX 
2735 CALL HEXSH IF HEX, SHIFT INTO HL 
2790 Jc ERROR 30/W, RETRY 
2795 GNHL3 CALL GCHR 
2840 GNHLS CALL HEXSH s$IF HEX SHIFT INTO HL 
2845 MOV A,B sRESTORE CHAR 
2850 DB JRNC 
2855 DB GNHL 3~S—1 3IF HEX, CONTINUE 
2860 POP B $IF NON-HEX, DONE 
2865 RET 
2870 x 


AF 


BT 
ce 
FE 


F9 
C9 


30 
C9 
FA 


27 
OA 
C8 EI 


C8 El 
C8 El 


33 El 
20 


2875 
2830 


2885 : 


2890 
2895 
2900 
2905 
2910 
2915 
2920 
2925 
2930 
2935 
2940 
2945 
2950 
2955 
2960 
2965 
2970 
2975 
2980 
2985 
2990 
2995 
3000 
3005 
3010 
3015 
3020 
3025 
3030 
3035 
3040 
3045 
3050 
3055 
3060 
3065 
3070 
3075 
3080 
3085 
3090 
3095 
3100 
3105 
3110 
3330 
3335 
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~ 
* IF A CONTAINS HEX CHAR, SHIFTS BINARY EQUIVALE © 
* INTO HL. IF NOT HEX, RET WITH CY SET. SAVES 
* ORIGINAL CHAR IN B 
* 
H 


EXSH MOV B,A 


SUI 707 $< 7077 
RC 
ADI = 704=4=CASE 
RC 
SUI “A¢="G" 
DB JRNC 30K IF >= 7A¢ 
DB —«HXSHO-s=1 
ADI —- “A4-494=1 #CASE 
RC 
HXSHO DN OAC6H $ADI 797+1-70" 


* THE A-REG NOW CONTAINS THE HEX DIGIT IN BINARY 
* (THE HIGH-ORDER NIBBLE OF A IS 0.) . 


HXSH4 CALL HXSH1I sSHIFT 4 BITS INTO HL 
CALL HXSHI1 
CALL HXSHI 

* 

HXSH!I = RLC sSHIFT INTO BIT 4 
DAD H - $SHIFT LEFT 

* CLEAR CY IN CASE OF RET FROM HEXSH 
ORA A 
DB ~-——sC OC BH +BIT 4,A 
DB 67H 31S IT 0? 
RZ 
INX H 
RET 


RETURNS WITH A NON-SPACE IN THE A-REG. 

IF ENTERED WITH A=REG CONTAINING A NULL 
QR A SPACE, GETS NEW CHARS UNTIL FIRST 

NON=SPACE OCCURS. ALTERS AF. 


SKSGO XRA A sSTART WITH A NULL 
* 


+ + + + + % 


SKSG ORA A sDOES A CONTAIN NULL? 


SKSGI CZ GCHR 
CPI 20H sSPACE? 
DB JRZ_ 
DB SKSG.1-$~1 
RET 
* 
* 
* 
* 


EIF3 
EIF3 
EIF4 
EIFS 
E1F6 
EIF? 
EIF8 
EIFB 
EIFeL 
EIFE 
E200 
E201 
E202 
E204 


cD 


FS 
cD 


c9 


2] 
39 


2B 


EB 


52 


F3 


03 
F3 


FC 
OF 
OA 


O7 
30 


Et 


EI 


E | 


00 


El 


3350 
3355 
3360 


3365 


3370 
3375 
3330 
3385 
3390 
3395 
3400 


3480 
34385 
3490 


° 3495 


3505 
3510 
3515 
3520 
3525 
3530 
3535 
3540 
3545 
3550 
3555 
3560 
3565 
3570 
3575 
3580 
3535 
3590 
3595 
3600 
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* PRINT THE NUMBER IN HL. PRESERVES ALL REGS. 
* 


PNHL PUSH PSW 
PUSH 


H sTO STACK 
CALL P4HEX 


POP H 
WPOP PSW 
RET 


* 
* 


* PRINT SPACE FOLLOWED BY THE NUMBER POINTED 


3405 * TO BY HL. ALTERS A ONLY. 
3410 * 
3415 PSNM CALL SPACE 
3420 * (CONTINUE BELOW) 
3425 * 
3430 * PRINTS THE NUMBER POINTED TO BY HL. 
3435 * PRESERVES ALL RDGISTDRS. 
. 3440 « 
3445 PNM PUSH PSA 
3450 CALL P2HEX 
3455 POP PSW 
3460 RET 
. 3465 * 
3470 * 
3475 * PRINTS 4 HEX CHARS FROM TOP OF STACK. 


* ALTERS F,H,L. 
* 
P4HEX LXI H,3 


DAD SP sHL = SP 
CALL P2HEX sHIGH BYTE 
DCX H SLOW BYTE 


* 
* 
* PRINT THE NUMBER POINTED TO BY HL. 
* PRESERVES ALL REGS EXCEPT AF. 
* 
P2HEX MOV AM sGET THE NUMBER 
RRC 
RRC 
RRC 
RRC 
CALL PIHEX +sLEFT NIBBLE 
MOV AM sNOW DO THE RIGHT NIBBLE 
PIHEX ANI OFH §MASK 


CPI 10 $ <= 9? 
DB JRC 

DB PIHXt-$=1 

ADI 7 $A THRU F 


PIHX] ADI 30H sASCII BIAS 


E206 
E209 
E209 
E209 
E209 
E209 
E209 
E209 
E209 
E209 
E209 
E20C 
E20C 
E20E 
E20F 
E210 
E211 
r2l4 
E216 
E2l/7 
E218 
E219 
E2la 
E21A 
E21A 
E21A 
E21A 
E21A 
E2IA 
E2lA 
E21A 
E2Z1A 
E21D 
E220 
E22] 
F223 
E225 
E228 
E22A 
E22B 
E22C 


E22D . 


E22E 
E22F 
E22F 
E22F 
E22F 
E22F 
E232 
b232 
E232 
E232 


C3 


cD 


AD 
00 


QE 
F8 


vO 
B5 


00 
OF 


30 


3B 


E3 


El 


El 
EO 


El 


El 


3605 
3615 
3620 
3625 
3630 
3635 
3640 
3645 
3650 
3655 
3660 
3665 
3670 
3675 
36380 
3685 
3690 
3695 
37.00 
3705 
3710 
3715 
3720 
3725 
3980 
3985 
3990 
399 | 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4002 
4004 


4006 - 


4008 
4010 
4015 
4045 
4050 
4065 
4070 
4075 
4030 
4085 
4090 
4095 


=99= 


JMP 


*% +4 4 4 4% HF OF 


PSQ@S  LXI 

* 

PMSG MVI 
PUSH 

PMSU] MOV 
INX 
CALL 
ANI 


QO t+ete eee + H 


CMND CALL 
CALL 
MOV 
MV I 
MVI 
GCMN} CALL 
CPI 
MOV 
RC 
MQV 
DB 
DB 


COMMAND 
ERIF CALL 


*eaet 4 4 + 


PCHR sPRINT IT 


PRINT MESSAGE. ENTER WITH ADDR OF MSG 
‘IN HL. MSG IS TERMINATED BY 00 THRU O7. 
PRESERVES FLAGS, CLEARS A, INCRM HL. 


PRINT “ ? <BELL>” 


H,5QS 


A,O sCLEAR A (FOR GNHL) 
PSW sSAVE FLAGS 

AM 

H 

PCHR 

OF 8H $<NULL> THRU <BELL>? 
JRNZ | 

PMSG I-$=1 

PSW 


DE.GETS THE FIRST ALPHA CHAR = “A%. 
C.GETS THE FIRST DELIMITER. 
B IS INITIALIZED TO 70% & RETURNS 
THE LAST CMND CHARACTER. 


SKSGO sGET NON-SPACE 


ABCYZ ‘sALPHA CHECK 


E,A 
D,O -$DE HAS TBL DISPLACEMENT 
B,“07+CASE tINITIALIZE FOR GO CMND 
GCHR  %GET CHAR 
30H sDELIMITER 7? 
C,A sDELIM STORE 
sIF SO, DONE 
BA sLAST CHAR STORE 


JR 
GCMN 1 =$—1 


LD3N sGET 3 OPERANDS 


*% COMPARES TWO AREAS OF MEMORY. ENTER WITH 
* SOURCE IN HL. DESTINATION IN DE & COUNT 


E232 
E232 
E233 
E234 
E235 
E238 
E239 
E23c 
E23F 
E240 
E243 
E244 
E245 
E246 
E249 
E24A 
E24B 
E24B 
£2458 
E24B 
E24B 
E24E 
E250 
E250 
£250 
E250 
E250 
E250 
E250 
E250 
E250 
E250 
E251 
E252 
E253 
E254 
E255 
E256 
E257 
E258 
E259 
E25A 
E25B 
E25B 
E25C 
E25D 
E25E 


E25F - 


E260 
E261 


CD 
3& 


oc 


DA 
E2 


b2 


0} 


Et 


Ef 
El 


Et 


Ei 
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4100 * IN BC. ALTERS ALL REGISTERS. 


4105 VRFY LDAX OD +DEST INATION 

4110 DB CPI sCOMPARE TQ SOURCE 
4115 DB CPI 

4120 CNZ CRLF 3IF NOT SAME, CRLF 
4125 DCX H 3(CPI INCRMS HL) 
4130 CNZ PNHL + & PRINT SOURCE ADDR 
4135 CNZ PSNM $ & SOURCE CONTENTS 
4140 XCHG 

4145 CNZ PSNM $ & DEST CONTENTS 
4150 XCHG 

4155 INX H SRESTORE HL FOR CPI 
4160 INX D sNEXT DEST 

4165 JPO CRLF 3IF BC = 0, DONE 

4170 DB JR 

4175 _ DB VRFY=$~| 

4130 * 

4135 * 

4190 * COMMAND 

4195 * 

4200 MOVE CALL LD3N sOPERANDS 

4210 MVI A,) s# OF ITERATIONS 
4215 * 

4220 * 

4225 * MOVE FROM ONE LOCATION TO ANOTHER. ENTER 


4230 * WITH SOURCE ADDR IN HL, DEST IN DE, BYTE 
4235 * COUNT IN BC. THE MOVE IS ITERATED N TIMES, 
4240 * WHERE N = TWICE THE CONTENTS OF A, LESS ONE. 
4245 * INCREMENTS HL & DE BY BC. CHECKS RESULT 
4250 * & PRINTS THE ERRORS FOUND. 


4255 x ; . 
4260 MVE STC sCY IS USED IN ITERATION COU 


4265 MVEI PUSH H 3 SOURCE 

4270 PUSH D *DEST 

4275 PUSH 8B +BYTE COUNT 
42380 DI $FOR PROM PROGRAMMING 
4285 DB LDIR tONE ITERATION 
4290 DB LDIRI 

4295 EI 

4300 POP B 

4305 POP D 

4310 POP H 

4315 * ITERATION CALCULATIONS 

4320 CMC 

4325 DB JRC 

4330 DB MVEi~s—1 

4335 DCR A 

4340 DB JRNZ 

4345 MVE!-$-1 


4350 * CHECK RESULT 
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E26! 18 | 4355 DB JR. 

E262 CF 4360 DB VRFY-$~1 

E263 4364 * 

£263 4365 * 

£263 4367 * COMMAND 

£263 4368 * | 
E263 4370 * GO <CR> EXECUTION BEGINS AT USER PC. 
E263 4375 * 

£263 4376 * COMMAND 

£263 4377 * 

E263 4330 * GO <ADDRI>/<ADDR2> ... <ADDRN> 

E263 4335 * EXECUTION BEGINS AT ADDRI WITH BREAKPOINTS SET 
£263 4390 * AT ADDR2,-+-,ADDRN. 

£263 4395 * 

E263 78 4400 GO MOV A,B. $CHECK THAT THE LAST 
£264 FE oF 4401 CPI “0/+CASE $CMND CHAR IS 70 
E266 C2 BC EO 4402 JNZ ERROR 

E269 79 4403 MOV A,C —- $CMND DELIMITER 
E26A OE 00 4405 MVE C,O $BP FLAG 

E26C CD DI El 4410 GOI CALL SKSG ‘WAIT FOR NON-SPACE 
E26F FE OD 4415 CPI CR 

E271 28 4420 DB JRZ 

E272 3A , 4425 DB RETN-$—1 $RETN IF CR 

E273 FE 2F 4430 CPI ays $BP? 

E275 20, 4435 DB JRNZ 

E276 OE 4440 DB G03-$-1 

E277 OE Ol 4445 MVI Cy] 3SET BRKPT FLAG 
E279 21 30 00 4450 LXI H,RSTLC $TRANSFER 

E27C 36c 4455 MVI-- M,OC3H ~=87JMP SVMS¥ TO 
E27E 21 43 EO 4460 LXI Hy SVMS 

E281 22 31 00 4465 SHLD RSTLC+1 #RST LOC 

E284 AF 4468 XRA A 

E285 CD 97 El 4470 G03. CALL.—sSsGNHL_~—s$GET ADDR 

E288 CB 41 — 4475 DW 41CBH sBIT 0,C¥ FLAG SET? 
E28A EB 4478 XCHG 

E28B 28 4430 DB JIRZ 

E28C 18 4485 DB G05-$-1 sJMP IF NO BP 

E28D DD 4495 DB 1X 

E28E E5 4500 PUSH H -¥PUSH IX 

E28F El 4505 POP sd 

E290 23 4510 INX  H 

E291 6E 4515 MOV  L,M  $HL = BPSP 

E292 4520 * 

£292 23 4525 INX  H $BUMP BPSP 

E293 EB 4530 XCHG ;DE*BPSP, HL= BP ADDR 
E294 46 4535 MOV ByM — sCONTENTS 

E295 36 F7 4537 MVI - M,OCTH*#RSTLC $RST INSTRUCTION 
E297 EB 4540 XCHG tHL=BPSP 

E298 70 4545 MOV M,B  $TO BP STACK 

£299 23 4550 INX  H 3BUMP BPSP 


E29A 
E29B 
E29C 
E29D 
E29E 
E2A0 
E2AI 
E2A2 
E2A3 
E2A4 
E2A5 
E2A5 
E2A6 
E2A7 
E2A8 
E2AY 
E2AA 
E2AB 
E2AC 
E2AD 


E2Ac 
E2AF 
E2B0 
E2B\ 
E2eB2 
E2B3 
E2B4 
E2B5 
E2B6 
E2B?7 
E2B8 
E2B8 
E2B9 
E2BA 
E2BB 
E2Bu 
E2BD 
E2BE 
E2BF 


E2BF - 


E2Cco 
E2Cci 
E2C2 
E2C3 
E2C4 
E2C5 
E2C6 
E2C7 
E2CA 
E2CB 


01 


OA 00 


4555 


. 4560 


4565 
4570 
4575 
4530 
4585 
4590 
4592 
4593 
4595 
4600 
4605 
4610 
4615 
4620 
4625 
4630 
4635 
4640 
4645 


'4650 


4655 
4660 
4665 
4670 
4615 
4680 
4685 
4690 
4695 
4700 
4705 
4710 
4715 
4720 
4725 
4730 
4735 
4740 
4745 
4750 
4755 
4760 
4165 
4770 
4775 
47380 
4785 
4790 
4195 
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MOV ME +BP ADDR TO STACK 
INX H 
MOV M,D 
INX H 
MVI M,01 #PUNCTUATION (BP SET) 
DB IX 
MOV M,L $LD (IX*#1),L 
DB I 
DB JR 
DB GO 1-$=1 
* CHANGE USER PC 
GO5 DB Ix 
MOV M,D sLD (IX*DUPC),D 
DB DUPC 
DB IX 
MOV M,E sLD CIX+DUPC-1),E 
DB DUPC-1 
DB JR 
DB: GO1-$-) $BACK FOR MORE 
* 
RETN POP | tSTRIP CMND ADDR FROM STK 
PQ)P H $UHL2 
POP D +UDE2 
POP B +UBC2 
POP PSW sUAF2 
DB EXX 
DB EXAF 
DB IY. 
POP H sPOP IY¥$ UILY 
DB IX 
POP H yPOP IXs UIX 
* 
POP PSW sUIF 
DB OEDH 
DB 474 #LD I,A8 Ul 
DI 
DB JRNC 
RETN1-$—| 
*IFF NOW RESTORED 
RETNI POP H sUHL 
POP D sUDE 
POP B sUBC 
POP PSN tUAF 
XTHL sUSP TO HL, UHL TO (SP) 
PUSH  PSW 
PUSH B 
PUSH OD 
LXI B, 10 
XCHG sUSP TO DE 
DCX D 


E2cc 


E2CF 
E2D0 
E2DI 
E2D2 
E2D3 
E2D4 
£2D5 
E2D6 
E2D7 
E2D8 
E2Ds 
E2D9 
E2DA 
E2DB 
E2DB 
E2DC 
& 2DD 
E2DE 
E2DF 
E2EO 
E2E0O 
E2E0 
E2E0 
E2E0 
E2E0 
E2EO 
E2E0 
E2E0O 
E2E0 
E2E0 
E2E3 
E2E4 
E2E5 
E2E6 
E2E7 
52E8 
E2EB 
E2ED 
E2FO 
E2F3 
E2F5 
E2Fs 
E2F9 
E2FA 
E2FB 
E2FE 
E2Fr 
E300 
E300 


21 09 00 


39 
ED 
B8 
EB 
TE 
34 
BE 
23 
03 


35 
F9 
33 


E2 


E5 
2E 
OE 
33 
2E 
OE 


97 


Ei 


El 
El 


El 


E 1 
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4800 LXI Hy 
4805 DAD = SP 
4810 DB LDDR sTRANSFER UPC THRU UHL, L 
4815 DB LDDRI 3TO USER STACK 
4820 XCHG s1S (USER SP - 1) RAM? 
4825 MOV AAM 
4830 INR M 
4835 CMP OM s$DID IT CHANGE? 
4840 DB JRZ 
4345 DB RETN2=-$-1 
4850 * 
4855 DCR M $YES. RESTORE IT. 
4860 SPHL sCHANGE TO USER STACK 
4865 INX SP sCORRECT FOR LDDR EXTRA DCR 
4866 * 
4870 RETN2 POP OD SOTHERWISE, CONTINUE SYS 
4875 POP iB 
4830 POP PSW 
4885 POP oH 
4890 RET 
4891 
4900 * ENTER WITH HL POINTING TO MEMORY & B CONTAININ 
4905 * THE 2—BYTE REG FLAG. | 
4910 * PRINTS SPACE, CONTENTS OF (HL) & ALSO (HL=1) F 
4915 * 2-BYTE REGS, GETS SUBSTITUTION VALUE INTO DE, 
4920 * WRITES E INTO (HL) OR (HL-1) FOR 2-BYTE REGS. 
4925 * RETURNS WITH Z=FLAG RESET IFF A CHANGE IS INDI. 
4930 * CATED (BY A LACK OF ’.7) FOR A 2=BYTE REG. 
4935 * PRESERVES BU,HL. 
4940 * 
4945 GSUBV CALL PSNM SPRINT (HL) 
4950 DB OCBH iBIT 6,B 
4955 DB 70H $2-BYTE REG? 
4960 DB JRZ 
4965 DB GSBV l= $=1 
4970 DCX H sYES, PRINT 
4975 CALL PNN + LO BYTE 
4980 GSBVI MVI fe? 
4985 CALL PCHR 
4990 CALL GCHR 
4995 CPI 9%, +SUBSTITUTION? 
5.000 CZ PCHR ;IF NOT, PRINT ANOTHER 
5005 DB JRZ | 
5007 DB GSBV2-$~1 
5010 XCHG 
5015 CALL  GNHL 3NEN VALUE 
5020 XCHG $TO DE 
5025 MOV sM,E ‘LOAD MEM 
5035 * THE FOLLOWING TEST IS FOR SBSR 
5040 DB OCBH iBIT 6,B 


E301 
E302 
E303 
E304 
E304 
E304 
E304 
E304 
E304 
E304 
E304 
E304 
E304 
E304 
E304 
E304 
E304 
E304 
E304 
E305 
E30/ 
E308 
E309 
E30A 
E30A 
E30D 
E30F 
E30F 
ik 30F 
E3l2 
E314 
E317 
E3t8 
E319 
E319 
E3Ic 
E3IF 
E320 
E321 
E322 
E323 
E324 
E325 
E326 
E328 
E329 
E32A 
E32C 
E32F 
E331 


E331 . 


70 
23 
co 


/2 


97 
00 


EO 
07 
58 


1A 
E7 


20 


27 
BC 
OE 


Ee 
E3 


EO 


ey Pe 


5045 DB 
5050 GSBV2 = INX 
5052 RET 
5055 

5060 

506 | COMMAND 
5062 

5065 SM <ADDR> 
5070 . 
5072 COMMAND 
5073 

50380 

5085 

5090 

5095 

5100 

5105 

5110 SUBST MOV 
5115 CPI 
5117 MOV 
5120 DB 
5125 DB 
5130 * 


5135 SBSM CALL 
5140 SBSM! MVI 


70H : $2-BYTE REG? 
H 


SUBSTITUTE MEMORY LOCATION. 


REGISTER NAMESt P (PC), S (SP), 


Ae F, B, C, D, E, H, Ly 
I, T CIFF), X CIX), Y CTY), 
A’ ,F”, B,C’ ,D” ,E” ,HY ,L?. 


* 
* 
* 
* 
* 
* 
* 
* 
5075 * SR <REGISTER NAME> SUBSTITUTE USER REGISTER 
* 
* 
* 
* 
* 
* 
Ss 


A,B sLAST CMND CHAR 
“R“+CASE $SR? 

A,C sDELIMITER 

JRZ 

SBSR-$=1 


GNHL $HL GETS ADDR 
B,O sREG FLAGS 


5145 * PRINT CURRENT VALUE, REQUEST NEw VALUE & 
5150 * PRINT IT IF GIVEN ~ 


5155 CALL 
5160 MVI 
5165 CALL 
5170 DB 
5175 DB 
5180 * 

5185 SBSR CALL 
5190 LXI 
5195 DAD 
3200 MOV 
5205 DB 
5210 DB 
5215 DB 
5220 DB 
5225 MOV 
9230 CPI 
5235 DB 
5240 DB 
5245 CPI 
5250 JNZ 
5265 MVI 
5270 * 


5275 SBSRI MOV 


GSUBV 

A,7 $8 ENTRIES PER LINE 
CKBND 

JR 

SBSMi-s~| 

GCMND DE GETS LETTER - “A? 
H, RGTBL 

D sPNTS TO REG DISPLACEMENT 
B,D =O 

OCBH $BIT 7, CHL) 

TEX . $A THRU L? 

JRZ 

SBSR1~$-! 

A,C- sLAST CMND DELIMITER 
20H sSPACE? 

JRZ 

SBSR.1I~$-1 

een sPRIMED? 


ERROR 
B,DUAF-DUAF2 sYES 
A.M 3DISPLACEMENT & FI.AGS 


E332 
E333 
E336 
E338 
E339 
E33A 
E.33B 
E33C 
E.33D 
E.33E 


E33P: 


E340 
E340 
E340 
E340 
E343 
E344 
E345 
E346 
E349 
E34A 
E34B 
E34B 
E34B 
E34C 
E34E 
E34F 
E 3b2 
E352 
E352 
E352 
£352 
E352 
E352 
£355 
E355 
E356 
E359 
E35C 
& 35D 
E35E 
E35F 
E360 
E363 
E366 
E367 
E368 
E368 
E368 
E368 


BC 
\F 


EO 


52 


F5 


64 


5D 
E2 


oc 


EO 


E2 


EJ 


EO 


El 


El 


El 


56 El 


5277 
5278 
5280 
52385 
5290 
5295 
5 300 
5305 
5310 
5315 
5317 
5 320 
5 325 
5 330. 
5335 
5 340 
5345 
5350 
5355 
5360 
5 365 
5370 
537) 
5372 
5373 
5374 
5375 
5377 
5379 
5 380 
5381 
5390 
5 395 
5400 
5405 
5410 
5415 
5420 
5425 
5430 
5435 
5440 
5445 
5450 
5455 
5460 
5465 
5470 
5475 
5500 


-28- 


ORA 
JZ 
ANI 
ADD 
MOV 
MOV 
DB 
PUSH 
POP 
DB 


A sIF O, ILLEGAL CMND 
ERROR 

\FH sSTRIP FLAGS OFF 

B sADJUST FOR PRIMES 
E,A sDE GETS DISPL (D=0) 
BM $SAVE ORIG ENTRY 

IX 

H 3PUSH IX 

H sSTACK FRAME 


OE DH 3SBC HL,DE 
52H sPNTS TQ USER REG 


DB 
* PRINT CURRENT VALUE, DE GETS SUBSTITUTION 
* VALUE, IF ANY, & (HL) OR (HL=1) GETS E. 
* Z-FLAG RESET IFF CHANGE FOR A 2-BYTE REG.) 


CALL GSUBV 
DB JRZ 
DB ss SBSR3-S~1 
MOV = MD sNO. HI BYTE 
SBSR3 CALL SPACE 
DB JR 
DB SBSR-$-1 
* 
* 
DISPL MOV A,B sLAST CMND CHAR 
CPI *R7*CASE 3DR? 
MOV A,C 3CMND DELIMITER 
JZ DSPR 
* 
* 
* COMMAND 
* 
* DISPLAY MEMORY. 
* 
DSPM CALL L2NCR $sNITO DE, INCRM TO BC, 
* $DELIMITER TO A 
XCHG 3N1 TO HL 
DSPM! CALL PADRI $PRINT ADDR, 727 
DSPM2 CALL  PSNM sPRINT CONTENTS OF MEM 
INX  H | 
DCX 8B 
MOVs A,B 
ORA CC  $DONE? 
Jz CRLF 
CALL  CKI6B sCHECK FOR 16 COUNT 
DB JR 
DB DSPM2~$~1 
* 
* 
*...SUBDM 00 7E 5 585 BY 5 100 DBE++ 
* 


CD 
CD 
12 
13 
0B 
78 
Bl 
20 
F6 
C9 


cD 
cD 
4D 


ED 
C9 


OD 
OD 


64 El 
41 El 


64 El 
80 


Ol 


97 El 
97 EI 


59 


* READ BINARY INPUT FROM DATA PORT 


L2NCR #sGET MEM ADDRS 
GBYTE sGET INPUT 

D 3TQ MEM 

D 

B sCOUNT 

A,B 

Cc -$BC = 07? 

JRNZ 

RDBt~$~1 


* WRITE BINARY OUTPUT TO DATA PORT 


L2NCR #GET MEM ADDRS 
STAT 

TBE 

JRZ 

WRTBI-S=1 

D 

DATA 

D 


B 

Cc 

JRNZ 
WRTB1-$S—| 


* QUT <DATA=BYTE> <PORT NNUMBER> 


5505 * 

5507 * COMMAND 
5510 

5512 * 

5514 READB CALL 
5516 RDBI CALL 
5518 STAX 
5520 INX 
5522 DCX 
5524 MOV 
5526 ORA 
5528 DB 
5530 DB 
5532 RET 
5534 * 

5536' * 

5537 * COMMAND 
5538 

5540 * 

5542 WRITB CALL 
5544 WRTBI IN 
5546 ANI 
5548 DB 
5550 DB 
5552 LDAX 
5554 QUT 
5556 INX 
5558 DCX 
5560 MOV 
5562 ORA 
5564 DB 
5566 DB 
5568 RET 
5570 x 

5572 * 

5574 * COMMAND 
5576 

557d * 

5580 OUTP CALL 
5582 XCHG 
5534 CALL 
5535 * 

5586 MOV 
55834 Da 
5590 RET 
5591 * 

5592 x 

5593 HEAD DB 
5595 DB 


GNHL 
sE GETS DATA 
GNHL sGET PORT NUMBER 


C,L + TOC 
59EDH sQUT (C),E 


CR 
CR 


E396 


E3AC 
E3AD 
E3AD 
E3AD 
E3APr 
E3BO 
E3BO 
E3B1 
E3B2 
E3B3 
£3B3 
E3B3 
E3B4 
E3B5 
E3B5 
E3B5 
E3B7 
E3B9 
E3BB 
E3BD 
E 3BF 
E3C] 
E3C3 
E3C5 
E3C7 
E3C9 
E3CB 
E3CD 
E3CF 
E3DI 
E3D3 
E3D5 
E3D7 
E3D9 


E3DB . 


E3DD 
E 3DF 
E3E1 
E3E3 
E3E5 
E3E7 
E3E7 
Ese7 
E3E7 


43 
45 
20 
31] 
43 
00 
20 
O7 
OA 


00 


84 


52 
4D 
4D 
2E 
2E 
36 


3F 


4F 4D 
43 45 
4F 4E 
30 20 
31 39 


5600 


5605 
5610 * 
5630 * 
5635 sas 
5640 

5645 * 
5650 LFNN 
5655 

5660 

5665 «* 
5690 * 
5695 PRMPT 
5700 


-39- 


ASC 


DB 


ASC 
DB 


DB 
DB 
DB 


DB 
DB 


SCROMEMCO MON] .0 C.19764 


Co tool 


BELL 


LF 
7FH 


+44 


0 


NULL 


5705 * THE COMMAND TBL MUST IMMEDIATELY FOLLOW 


5706 * THE PROMPT MESSAGE 


5710 
S715 
5720 
5725 
5130 
5735 
5740 
5745 
5750 
5755 
5760 
5765 
5770 
5775 
5730 
5785 
5798 
5795 
5800 
5805 
5810 
5815 
5820 
5825 
5830 
5340 * 
5350 * 
5851 * 


5852 RGTBL 


DB 


ERROR 
ERROR 
ERROR 
DISPL 
ERROR 
ERROR 
GO 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
MOVE 
ERROR 
QUTP 
PROG 
ERROR 
READB 
SUBST 
ERROR 
ERROR 
VERIF 
WRITB 
ERROR 
ERROR 


sDISPLAY 
sENTER 
sFILE 


8H 
3+ INPUT 
tJ 


3K 
$LIST 


+NUMBER 

sQUTPUT 

3PROGRAM 

3Q 

sREAD BINARY OR ASCII 
+SUBSTITUTE 

sf RAP 

s UNEQUAL 

sVERIFY 

sWRITE BINARY OR ASCII 
3X 

sY 


—~DUAF+PF iA 


E3E8 
E3E9 
E3EA 
5 3EB 
E3EC 


ESED . 


E3EE 
co 3EF 
E3FO 
ESF | 
E3F2 
E3F3 
E3F4 
E3F5 
E3F6 
E3F7 
E3F3 
E3F9 
ESFA 
/E3FB 
E3FC 
E3FD 
E3FE 
E3FF 


5853 
5854 
5855 
5856 
5857 
5858 
5859 
5860 
586 | 
5862 
5863 
5864 
5865 
5866 
5367 
5 868 
5869 
5870 
5871 
5872 
5873 
53874 
5875 
5876 


-3]- 


-DUBC+PF 3B 
-DUBC+I+PF 3sC 
-DUDE+PF #D 
-DUDE+1+PF $F 
—DUAF+1+PF $F 
0 

—~DUHL*+PF $H 
~DUIT iI 

0 


6) 
~DUHL+1I+PF 3L 
0 
O 
0 
—DUPC+R2F $§PC 
0 


0 

“DUSP+R2F §SP 

-DUIT+1 $T C INTERRUPT ENABLE) 
0 


te) 
0 
~DUIX+#R2F 3X (1X) 
—DULY*R2F 3Y CITY) 


